home *** CD-ROM | disk | FTP | other *** search
/ CD/PC Actual 41 / 2000-01 CD ACTUAL #41 (PC Actual Enero 2000).iso / demos / PowerGest / conta / LST / W_DOC002.PRC < prev    next >
Encoding:
Text File  |  1999-11-24  |  5.1 KB  |  146 lines
  1. !----------------------------------------------
  2. !      CONCILIACION POR CUENTA/DOCUMENTO/FECHA
  3. !      LISTADO DE SALDOS VIVOS
  4. !      Vers. 1.6
  5. !----------------------------------------------
  6.  
  7. #TIPO 610
  8.  
  9. #BAS CUE
  10. #BAS APU
  11. #BAS MAY
  12. #MEN Preparando conciliacion por facturas
  13. #REL APUNTE;  APU
  14. #TIT "CONCILIACION DE PARTIDAS POR DOCUMENTO. "+ "CUENTAS "+alltrim(_CUE1) + " A "+alltrim(_CUE2)
  15. #INI
  16.    LINEAS_CUERPO; LINEAS_CUERPO -4
  17.    #VAR _IMP_DEBE; 0; _IMP_HABER; 0; _IMP_SALDO; 0
  18.    #VAR ULT_DOCUM; "-"
  19.    #VAR  CFGxpag; IIF(_XPAG$"sS",.T.,.F.)
  20.  
  21. #QEX _CUE1; CUENTA<=_CUE2.AND.!EOF(); SALTA_FAC(4)
  22.  
  23. !----------------------------------------------
  24. !            CABECERA DEL LISTADO
  25. !----------------------------------------------
  26.  
  27. #CAB
  28.   FECHA;      DTOC(DATE())
  29.   EMPRESA;    CFGLOGO
  30.   PG;         PAGINA;  9999
  31.   TITULO;     "CONCILIACION DE PARTIDAS POR DOCUMENTO. "
  32.   SUBTIT;     "CUENTAS "+alltrim(_CUE1) + " A "+alltrim(_CUE2)
  33.  
  34. !----------------------------------------------
  35. ! BLOQUE OPCIONAL 1: FINAL DE CUENTA
  36. !----------------------------------------------
  37.  
  38. #OP1        CH_EXP1("CUENTA"); CH_EXP1("CUENTA")
  39.   #EXT
  40.   TDEBE;    A_DEBE;          @EZ 99999999999
  41.   THABER;   A_HABER;         @EZ 99999999999
  42.   TSALDO;   A_DEBE-A_HABER;  @EZ 99999999999
  43.   #STO      A_DEBE;  0
  44.             A_HABER; 0
  45.             A_SALDO; 0
  46.             A_DOCUM; 0
  47.  
  48. !----------------------------------------------
  49. ! BLOQUE OPCIONAL 2: FINAL DE DOCUMENTO
  50. !----------------------------------------------
  51.  
  52. #OP2        CH_EXP2("DOCUM")
  53.   #STO      A_DOCUM; 0
  54.   #LINEA    .T.
  55.  
  56. !----------------------------------------------
  57. ! BLOQUE OPCIONAL 3: CAMBIO DE CUENTA
  58. !----------------------------------------------
  59.  
  60. #OP3        CH_EXP3("CUENTA") .OR. LINEA = 1
  61.   #PAGINA   (CFGXPAG .AND. LINEA>2) .OR. LINEA>LINEAS_CUERPO-6
  62.   #EXP
  63.     CUENTA;   CUENTA
  64.     TITULO;   BUSCAR("TITULO","MAY->CUENTA",2,1)
  65.     A_DEBE;   A_DEBE          ; @EZ 99999999999
  66.     A_HABER;  A_HABER         ; @EZ 99999999999
  67.     A_SALDO;  A_DEBE-A_HABER  ; @EZ 99999999999
  68.  
  69. !----------------------------------------------
  70. !        LINEAS DEL CUERPO DEL LISTADO
  71. !----------------------------------------------
  72.  
  73. #CUE
  74.   #EXP
  75.             APU;      APU->APUNTE; 99999
  76.             FEC;      MAY->FECHA
  77.             CONTRA;   MAY->CONTRA; 999999999
  78.             TITUL;    BUSCAR("TITULO","MAY->CONTRA",2,1)
  79.             DOCUM;    LTRIM(MAY->DOCUM)
  80.             FACT;     LTRIM(MAY->FACTURA)
  81.             CONCEPTO; APU->CONCEPTO
  82.  
  83.   #STO      A_DOCUM;  A_DOCUM+IIF(DOH="D",APU->IDEBE,-APU->IHABER);
  84.   #EXP      A_DOCUM;  A_DOCUM;                    @EZ 99999999999
  85.  
  86.   #ACU      A_DEBE;   IIF(DOH="D",APU->IDEBE,0);  @EZ 99999999999
  87.             A_HABER;  IIF(DOH="H",APU->IHABER,0); @EZ 99999999999
  88.             A_SALDO;  A_DEBE - A_HABER;           @EZ 99999999999
  89.  
  90. !----------------------------------------------
  91. ! FORMATO PARA PANTALLA
  92. !----------------------------------------------
  93. #FOR
  94. #PANT
  95. #CAB
  96. [EMPRESA                                          ]         PAGINA [PG]
  97. [TITULO                                           ]            [FECHA ]
  98. [SUBTIT                                           ]
  99.  
  100.                                                             SALDO    SALDO
  101. FECHA DOCUM.   CONCEPTO               DEBE       HABER      CUENTA   DOCUMENTO
  102. ──────────────────────────────────────────────────────────────────────────────
  103. #OP3
  104.  
  105. [CUENTA ] [TITULO                                         ]
  106.  
  107. #CUE
  108. [FEC] [DOCUM ] [CONCEPTO      ][A_DEBE   ] [A_HABER  ] [A_SALDO  ] [A_DOCUM  ]
  109. #OP2
  110. [NULA]
  111. #OP1
  112.                     ──────────────────────────────────────────────────────────
  113.                     TOTALES ...[TDEBE    ] [THABER   ] [TSALDO   ] [TSALDO   ]
  114. #FIN
  115. #PANT
  116.  
  117. !----------------------------------------------
  118. ! FORMATO PARA IMPRESORA
  119. !----------------------------------------------
  120.  
  121. #IMPR
  122. #CAB
  123.                                                                               
  124. [EMPRESA                                          ]         PAGINA [PG]
  125.                                                                [FECHA ]
  126. [TITULO                                                               ]
  127. [SUBTIT                                                               ]       
  128.  
  129.  
  130.                                                                                                                SALDO    SALDO
  131. FECHA    DOCUMENTO  CONCEPTO                   APUNT CONTRAP   TITULO                    DEBE       HABER      CUENTA   DOCUMENTO
  132. ─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
  133. #OP3
  134.  
  135. [CUENTA ] [TITULO                                            ]
  136.  
  137. #CUE
  138. [FEC   ] [DOCUM   ] [CONCEPTO                ] [APU] [CONTRA ] [TITUL           ] [A_DEBE   ] [A_HABER  ] [A_SALDO  ] [A_DOCUM  ]
  139. #OP2
  140. [NULA]
  141. #OP1
  142.                                                                                   ───────────────────────────────────────────────
  143.                                                                      TOTALES .... [TDEBE    ] [THABER   ] [TSALDO   ] [TSALDO   ]
  144. #FIN
  145. #IMPR
  146.